0 REM" DIR KASITTELY :*: TEHNYT MARKO JERRMAN[160][160]
5 A[178]A[170]1:[139]A[178]1[167][147]"828",8,8
10 [134]D$(10,8),T$(68),D1$(80),D2$(80),D(80):[159]15,8,15
15 [129]I[178]0[164]8:[135]T$(I):[130]:[129]I[178]64[164]68:[135]T$(I):[130]
16 OE$[178]"ON/EIWAIT":[129]I[178]0[164]9:AL$[178]AL$[170]"":[130]:[129]I[178]1[164]39:TT$[178]TT$[170]" ":[130]
17 [129]I[178]1[164]10:[135]S(I):[130]
30 [137]1000
31 [131] DEL,SEQ,PRG,USR,REL,*SEQ,*PRG,*USR,*REL
33 [131] DEL<,SEQ<,PRG<,USR<,REL<
35 [131]1,4,7,10,13,16,2,5,8,11
40 [159]5,8,5,"#":S[178]1:Z[178]1
50 [152]15,"U1:"5;0;18;S:[152]15,"B-P:"5;0
60 [129]J[178]1[164]8:D$(Z,J)[178]"":[129]I[178]0[164]31:[161]#5,A$:[139]A$[178]""[167]A$[178][199](0)
65 [139]ST[179][177]64[175]ST[179][177]0[167]90
70 D$(Z,J)[178]D$(Z,J)[170]A$:[130]:[139][202](D$(Z,J),6,1)[178][199](0)[167]90
72 [141]500
75 [130]:S[178][198]([202](D$(Z,1),2,1)):Z[178]Z[170]1
80 [139]S[179]21[167]50
90 [160]5:[142]
100 [159]5,8,5,"#":[152]15,"U1:"5;0;18;0:[152]15,"B-P:"5;144:D$(0,0)[178]""
110 [129]I[178]1[164]24:[161]#5,A$:[139]A$[178]""[167]A$[178][199](0)
115 D$(0,0)[178]D$(0,0)[170]A$:[130]:[153]""D$(0,0):[160]5:[142]
500 [153][202](D$(Z,J),6,16)"  ";:[139][198]([202](D$(Z,J),3,1))[178]0[167][153]T$(0)" ";:[137]505
501 [139][198]([202](D$(Z,J),3,1))[179]128[167][153]T$([198]([202](D$(Z,J),3,1))[170]4)" ";:[137]505
502 [153]T$([198]([202](D$(Z,J),3,1))[171]128)" ";
505 P[178][198]([202](D$(Z,J),31,1))[170][198]([201](D$(Z,J),1))[172]256:[153]P"BLOKKIA ":P[178]1
509 [142]
1000 [153]"LOADRETURN * * * * * DIRIKAN  KASITTELY * * * * *":[161]A$,A$
1010 [153]" MUISTISSA "OE$" DIRIKKA"
1020 [153]"  1 WAIT LATAA DIRIKKA"
1030 [153]"  2 WAIT TALLENNA DIRIKKA"
1040 [153]"  3 WAIT KASITTELE OTSIKKOA"
1050 [153]"  4 WAIT PALAUTA/SULJE JUTUT"
1060 [153]"  5 WAIT JARJESTA DIRIKKA"
1070 [153]"  6 WAIT VIIVOJA DIRIKKAAN"
1080 [153]"  7 WAIT LEVYKASKY"
1090 [153]"  8 WAIT DIRIKKA POIS MUISTISTA":A[178]0:P[178]0:I[178]0:J[178]0:Z[178]0
1095 [153]"  9 WAIT DIRIKKA NAKYVIIN"
1100 [153]"  0 WAIT LEVYN DIRIKKA":[129]I[178]1[164]80:D1$(I)[178]"":D2$(I)[178]"":D(I)[178]0:[130]
1110 [161]A$:[139]A$[179]"0"[176]A$[177]"9"[167]1110
1120 A[178][197](A$):[145]A[137]1200,1800,1300,1270,1400,1650,1220,1210,1900
1125 [153]"LOAD":[158]828
1126 [161]A$:[139]A$[178]""[167]1126
1128 [137]1000
1200 [153]"LOADLATAAN":[141]100:[141]40:OE$[178]"ONWAIT/EI":D$(0,1)[178][196](Z)
1205 D$(0,2)[178][196](J[171]1):[139]J[171]1[178]0[176]J[171]1[178]8[167]D$(0,1)[178][196](Z[171]1):D$(0,2)[178]"8"
1206 [137]1000
1210 [153]"LOADOLETKO VARMA (K/E)?"
1215 [161]A$:[139]A$[179][177]"E"[175]A$[179][177]"K"[167]1215
1217 [139]A$[178]"E"[167]1000
1218 [138]10
1220 [153]"LOADLEVYKASKY":[153]"MIKA ON KASKYSI (*=LEVYN TILA)?":B$[178]"":[153]"_CMD";
1225 [161]A$:[139]A$[178]""[176](A$[177][199](127)[175]A$[179][199](160))[167]1225
1230 [139]A$[178]""[175][195](B$)[177]0[167][153]"CMD_ CMDCMD";:B$[178][200](B$,[195](B$)[171]1):[137]1225
1231 [139]A$[179][199](32)[175]A$[179][177][199](13)[167]1225
1233 [139]A$[178][199](34)[167]1220
1234 [139]A$[178][199](13)[167][153]" ":[137]1240
1235 B$[178]B$[170]A$:[153]A$"_CMD";:[137]1225
1240 [139]B$[178]"*"[167]1250
1243 [139][200](B$,1)[178]"N"[167][153]"OLETKO VARMA (K/E)?":[137]1260
1245 [152]15,B$:[137]1250
1250 [161]#15,A$:[153]""A$;:[139]A$[179][177][199](13)[167]1250
1254 [161]A$:[139]A$[178]""[167]1254
1255 [137]1000
1260 [161]A$:[139]A$[179][177]"K"[175]A$[179][177]"E"[167]1260
1263 [139]A$[178]"E"[167]1220
1265 [137]1245
1270 [153]"LOADPALAUTAN":P[178]0:D[178][197](D$(0,1)):[139][197](D$(0,1))[178]0[167]1000
1272 [139]D[178]1[167]Z[178]1:[137]1276
1273 [129]Z[178]1[164]D[171]1:[129]J[178]1[164]8:[139][198]([202](D$(Z,J),3,1))[178]0[167][141]1280
1274 [139][198]([202](D$(Z,J),3,1))[177]0[175][198]([202](D$(Z,J),3,1))[179]9[167][141]1296
1275 [130]:[130]
1276 [129]J[178]1[164][197](D$(0,2)):[139][198]([202](D$(Z,J),3,1))[178]0[167][141]1280
1277 [139][198]([202](D$(Z,J),3,1))[177]0[175][198]([202](D$(Z,J),3,1))[179]9[167][141]1296
1278 [130]:[139]P[178]0[167][153]"EI POISTETTUJA TAI AVONAISIA TIEDOSTOJA":[137]1254
1279 [137]1000
1280 [141]500:[153]"PALAUTETAANKO (K/E)?":B$[178]""
1282 [161]A$:[139]A$[179][177]"E"[175]A$[179][177]"K"[167]1282
1283 [139]A$[178]"E"[167][142]
1284 [139]B$[178]"S"[167]1297
1285 [153]"ONONKO KYSEESSA PWAITRG, SWAITEQ, UWAITSR VAI RWAITEL?"
1287 [161]A$:[139]A$[178]""[167]1287
1290 [139]A$[178]"P"[167]A[178]2:[137]1295
1291 [139]A$[178]"S"[167]A[178]1:[137]1295
1292 [139]A$[178]"U"[167]A[178]3:[137]1295
1293 [139]A$[178]"R"[167]A[178]4:[137]1295
1294 [137]1287
1295 D$(Z,J)[178][200](D$(Z,J),2)[170][199](128[170]A)[170][201](D$(Z,J),29):[142]
1296 [141]500:[153]"SULJETAANKO (K/E)":B$[178]"S":[137]1282
1297 A[178][198]([202](D$(Z,J),3,1)):[137]1295
1300 [153]"LOADKASITELLAAN OTSIKKOA":[139]D$(0,0)[178]""[167]1000
1305 [153]"ID:LLA @ DIRIKASTA TULEE NAKYMATON"
1310 [153]"VANHA OTSIKKO=";[200](D$(0,0),16):[153]"VANHA ID="[201](D$(0,0),6)
1320 [153]"UUSI OTSIKKO=                :CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD_CMD";:B$[178]""
1325 [161]A$:[139]A$[178]""[176](A$[177][199](127)[175]A$[179][199](160))[167]1325
1326 [139]A$[178]""[175][195](B$)[177]0[167][153]"CMD_ CMDCMD";:B$[178][200](B$,[195](B$)[171]1)
1327 [139]A$[179][199](32)[175]A$[179][177][199](13)[167]1325
1328 [139]A$[178][199](34)[167][153][199](34)[199](20);
1330 [139]A$[178][199](13)[167][153]" ":B$[178][200](B$[170]"               CLOSE",16):[137]1335
1332 [153]A$"_CMD";:B$[178]B$[170]A$:[139][195](B$)[177]16[167][153]"CMD: CMDCMD";:B$[178][200](B$,16)
1334 [137]1325
1335 [153]"UUSI ID=     :CMDCMDCMDCMDCMDCMD_CMD";:C$[178]""
1340 [161]A$:[139]A$[178]""[176](A$[177][199](127)[175]A$[179][199](160))[167]1340
1341 [139]A$[178]""[175][195](C$)[177]0[167][153]"CMD_ CMDCMD";:C$[178][200](C$,[195](C$)[171]1)
1342 [139]A$[179][199](32)[175]A$[179][177][199](13)[167]1340
1343 [139]A$[178][199](34)[167][153][199](34)[199](20);
1345 [139]A$[178][199](13)[167][153]" ":C$[178][200](C$[170]"    CLOSE",5):[137]1350
1346 [153]A$"_CMD";:C$[178]C$[170]A$:[139][195](C$)[177]5[167][153]"CMD: CMDCMD";:C$[178][200](C$,5)
1347 [137]1340
1350 [139][200](C$,1)[178]"@"[167]C$[178]"":[129]I[178]1[164]5:C$[178]C$[170][199](0):[130]
1360 D$(0,0)[178]B$[170]"CLOSECLOSE"[170]C$[170]" ":[137]1000
1400 [153]"LOAD<RET>=VALINTA  M=MUUNTO":A[178]1:D[178][197](D$(0,1)):[139]D[178]0[167]1000
1404 [153]"P=POISTO       S=SUOJAUS/ANTISUOJAUS"
1405 [153]"K=KESKEYTYS    V=VALMIS (KAIKKI MUKAAN)"
1410 [139]D[178]1[167]Z[178]1:[137]1425
1415 [129]Z[178]1[164]D[171]1:[129]J[178]1[164]8:[139][198]([202](D$(Z,J),3,1))[177]9[167]D1$(A)[178]D$(Z,J):A[178]A[170]1
1420 [130]:[130]
1425 [129]J[178]1[164][197](D$(0,2)):[139][198]([202](D$(Z,J),3,1))[177]9[167]D1$(A)[178]D$(Z,J):A[178]A[170]1
1429 [130]:[139][195](D1$(1))[178]0[167]1000
1430 A[178]A[171]1:[129]I[178]1[164]A:D(I)[178]0:[130]:AL[178]1:LO[178]12:B[178]7:N[178]1:LA[178]1:[139]A[179]LO[167]LO[178]A
1440 [153]""[166]8)D$(0,0)[200](AL$,B)
1445 [153]TT$:[139]N[177]AL[167][129]Z[178]AL[164]N[171]1:[141]1500:[130]
1447 Z[178]N:[153]"";:[141]1500:[139]LO[177]N[167][129]Z[178]N[170]1[164]LO:[141]1500:[130]
1448 [153]TT$"ON":[161]A$,A$
1450 [161]A$:[139]A$[178]""[167]1450
1451 [139]A$[178]"S"[167]1485
1452 [139]A$[178]""[175]N[179]LO[167]1460
1453 [139]A$[178]"P"[175]D(N)[178]0[167]1490
1454 [139]A$[178]"M"[167]1530
1455 [139]A$[178]"ON"[175]N[177]1[167]1470
1456 [139]A$[178]"K"[167]1000
1457 [139]A$[178][199](13)[167]1480
1458 [139](A$[178]"V"[175]LA[171]1[178]A)[176](A$[178]"V"[175]LA[178]1)[167]1600
1459 [137]1450
1460 N[178]N[170]1:[139]B[177]0[167]B[178]B[171]1:[137]1465
1462 AL[178]AL[170]1
1465 [139]LO[179]A[167]LO[178]LO[170]1
1466 [137]1440
1470 N[178]N[171]1:[139]B[179]7[175]AL[178]1[167]B[178]B[170]1
1472 LO[178]LO[171]1:[139]LO[171]N[179]11[167]LO[178]LO[170]1
1475 [139]AL[177]1[167]AL[178]AL[171]1
1476 [137]1440
1480 [139]D(N)[178]0[167]D(N)[178]LA:LA[178]LA[170]1:[139]N[179]LO[167]1460
1481 [137]1440
1485 [139][202](D1$(N),3,1)[177][199](190)[167]1488
1486 D1$(N)[178][200](D1$(N),2)[170][199]([198]([202](D1$(N),3,1))[170]64)[170][201](D1$(N),29)
1487 [137]1440
1488 D1$(N)[178][200](D1$(N),2)[170][199]([198]([202](D1$(N),3,1))[171]64)[170][201](D1$(N),29)
1489 [137]1440
1490 D1$(N)[178]"":[129]I[178]N[164]A:D1$(I)[178]D1$(I[170]1):D(I)[178]D(I[170]1):[130]:A[178]A[171]1:[139]LO[177]A[167]LO[178]A
1491 [139]N[177]A[167]N[178]A:AL[178]AL[171]1:[139]AL[178]0[167]AL[178]1:B[178]B[170]1
1492 [139]AL[177]LO[167]1000
1493 [137]1440
1500 [153]D(Z)"CMD "[202](D1$(Z),6,16)" "T$([198]([202](D1$(Z),3,1))[171]128)" ";
1505 P[178][198]([202](D1$(Z),31,1))[170][198]([201](D1$(Z),1))[172]256:[153]P"CMD     "
1506 [142]
1510 [153]"  "[202](D1$(Z),6,16)"  "T$([198]([202](D1$(Z),3,1))[171]128)" ";:[137]1505
1530 [153]"LOAD"[166]8)D$(0,0):Z[178]N
1535 [153]"NYKYISET TIEDOT:":[141]1500:[153]"ANNA UUDET TIEDOT <RET>=EI MUUTOSTA"
1540 [153]"NIMI: _CMD";:B$[178]""
1545 [161]A$:[139]A$[178]""[176](A$[177][199](127)[175]A$[179][199](160))[167]1545
1546 [139]A$[178]""[175][195](B$)[177]0[167][153]"CMD_ CMDCMD";:B$[178][200](B$,[195](B$)[171]1)
1547 [139]A$[179][199](32)[175]A$[179][177][199](13)[167]1545
1548 [139]A$[178][199](34)[167][153][199](34)[199](20);
1550 [139]A$[178][199](13)[175]B$[179][177]""[167][153]" ":B$[178][200](B$[170]"               CLOSE",16):[137]1560
1551 [139]A$[178][199](13)[175]B$[178]""[167][153]" ":[137]1560
1552 [153]A$"_CMD";:B$[178]B$[170]A$:[139][195](B$)[177]16[167][153]"CMD: CMDCMD";:B$[178][200](B$,16)
1553 [137]1545
1560 [153]"PITUUS: _CMD";:C$[178]""
1565 [161]A$:[139]A$[178]""[167]1565
1566 [139]A$[178]""[175][195](C$)[177]0[167][153]"CMD_ CMDCMD";:C$[178][200](C$,[195](C$)[171]1)
1567 [139]A$[179]"0"[175]A$[179][177][199](13)[167]1565
1568 [139]A$[177]"9"[167]1565
1569 [139]A$[178][199](13)[167]1575
1571 [153]A$"_CMD";:C$[178]C$[170]A$:[139][195](C$)[177]5[167][153]"CMD: CMDCMD";:C$[178][200](C$,5)
1572 [137]1565
1575 [139]B$[178]""[167]1580
1577 D1$(N)[178][200](D1$(N),5)[170]B$[170][201](D1$(N),11)
1580 [139][197](C$)[178]0[167]1585
1581 Z[178][197](C$):[139]Z[177]65535[167]Z[178]65535
1582 I[178][181](Z[173]256):J[178]Z[171]256[172]I:D1$(N)[178][200](D1$(N),30)[170][199](J)[170][199](I)
1585 [153]"LOAD<RET>=VALINTA  M=MUUNTO"
1586 [153]"P=POISTO       S=SUOJAUS/ANTISUOJAUS"
1587 [153]"K=KESKEYTYS    V=VALMIS (KAIKKI MUKAAN)":[137]1440
1600 [139]LA[178]1[167][129]I[178]1[164]A:D2$(I)[178]D1$(I):[130]:[137]1610
1605 [129]I[178]1[164]A:D2$(D(I))[178]D1$(I):[130]
1610 Z[178]1:J[178]1:[129]I[178]1[164]A:D$(Z,J)[178]D2$(I):J[178]J[170]1:[139]J[178]9[167]Z[178]Z[170]1:J[178]1
1615 [130]:D$(0,1)[178][196](Z):D$(0,2)[178][196](J[171]1)
1620 [139]J[171]1[178]0[167]D$(0,1)[178][196](Z[171]1):D$(0,2)[178]"8"
1621 [137]1000
1650 [153]"LOADVIIVOJA":A[178]1:D[178][197](D$(0,1)):[139]D[178]0[167]1000
1655 [153]"K=KESKEYTYS  V=VALMIS"
1660 [139]D[178]1[167]Z[178]1:[137]1675
1665 [129]Z[178]1[164]D[171]1:[129]J[178]1[164]8:[139][198]([202](D$(Z,J),3,1))[177]9[167]D1$(A)[178]D$(Z,J):A[178]A[170]1
1670 [130]:[130]
1675 [129]J[178]1[164][197](D$(0,2)):[139][198]([202](D$(Z,J),3,1))[177]9[167]D1$(A)[178]D$(Z,J):A[178]A[170]1
1680 [130]:[139][195](D1$(1))[178]0[167]1000
1685 A[178]A[171]1:AL[178]1:LO[178]10:B[178]7:N[178]1:[139]A[179]LO[167]LO[178]A
1690 [153]""[166]8)D$(0,0):[153][200](AL$,B)
1695 [153]TT$:[139]N[177]AL[167][129]Z[178]AL[164]N[171]1:[141]1510:[130]
1700 [153]"  -*-*-*-*-*-*-*-*  USR":[139]LO[178][177]N[167][129]Z[178]N[164]LO:[141]1510:[130]
1705 [153]TT$"ON":[161]A$,A$
1710 [161]A$:[139]A$[178]""[167]1710
1712 [139]A$[178]""[175]N[179][178]LO[167]1720
1715 [139]A$[178]"ON"[175]N[177]1[167]1730
1716 [139]A$[178]"K"[167]1000
1717 [139]A$[178][199](13)[167]1740
1718 [139]A$[178]"V"[167][129]I[178]1[164]A:D2$(I)[178]D1$(I):[130]:[137]1610
1719 [137]1710
1720 N[178]N[170]1:[139]B[177]0[167]B[178]B[171]1:[137]1725
1722 AL[178]AL[170]1
1725 [139]LO[179]A[167]LO[178]LO[170]1
1726 [137]1690
1730 N[178]N[171]1:[139]B[179]7[175]AL[178]1[167]B[178]B[170]1
1732 LO[178]LO[171]1:[139]LO[171]N[179]9[167]LO[178]LO[170]1
1735 [139]AL[177]1[167]AL[178]AL[171]1
1736 [137]1690
1740 [129]I[178]A[164]N[169][171]1:D1$(I[170]1)[178]D1$(I):[130]:A[178]A[170]1
1745 D1$(N)[178][200](D1$(N),2)[170]"DATA"[170][199](0)[170][199](255)[170]"-*-*-*-*-*-*-*-*








"
1746 D1$(N)[178]D1$(N)[170][199](0)[170][199](0)
1747 [137]1720
1800 [153]"LOADTALLENNUS"[199](13)"LAITA LEVY ASEMAAN":[139]OE$[179][177]"ONWAIT/EI"[167]1000
1810 [161]A$:[139]A$[178]""[167]1810
1812 [139]A$[178]"E"[176]A$[178]"_"[167]1000
1815 [153]"TALLETUS KAYNNISSA!":D[178][197](D$(0,1))
1820 [159]5,8,5,"#":[132]15,A$:[139][197](A$)[177]1[167][160]5:[137]1000
1830 [152]15,"U1:"5;0;18;0:[152]15,"B-P:"5;144:[152]5,D$(0,0):[152]15,"U2:"5;0;18;0
1834 [139]D[178]0[167][160]5:[137]1000
1835 [139]D[178]1[167]Z[178]1:[137]1850
1840 [129]Z[178]1[164]D[171]1:J[178]1
1841 [152]15,"B-P:"5;0:[152]5,[199](18)[199](S(Z[170]1))[201](D$(Z,J),30);:S[178]S(Z)
1845 [129]J[178]2[164]8:[152]5,D$(Z,J);:[130]:[152]15,"U2:"5;0;18;S:[130]
1850 [152]15,"B-P:"5;0:[129]I[178]1[164]8:[129]T[178]1[164]32:[152]5,[199](0);:[130]:[130]
1851 J[178]1:[152]15,"B-P:"5;0:[152]5,[199](0)[199](255)[201](D$(Z,J),30);:S[178]S(Z)
1852 [139][197](D$(0,2))[177]1[167][129]J[178]2[164][197](D$(0,2)):[152]5,D$(Z,J);:[130]
1860 [152]15,"U2:"5;0;18;S:[160]5:[137]1000
1900 [153]"LOAD"D$(0,0):D[178][197](D$(0,1)):[139]OE$[178]"ON/EIWAIT"[167]1000
1910 [139]D[178]1[167]Z[178]1:[137]1930
1911 [139][197](D$(0,1))[178]0[167]1254
1920 [129]Z[178]1[164]D[171]1:[129]J[178]1[164]8:[141]500:[130]:[130]
1930 [129]J[178]1[164][197](D$(0,2)):[141]500:[130]:[137]1254